# name : get .Random.seed
# key : get.Random.seed
# Get random number seed for reproducibility
# contributor: Shuguang Sun
# --
${1:get_seed} <- ifelse(.Random.seed, .Random.seed, {runif(1); .Random.seed})$0